home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / verscheck / goodies / check_your_system next >
Text File  |  1999-11-30  |  4KB  |  152 lines
  1. ; $VER: VersCheck-Select-Script V1.7 (20.09.1999) by Michaela Pruess
  2.  
  3. Echo "Running Script"
  4. IF NOT EXISTS SCRIPTS
  5.     IF EXISTS /SCRIPTS
  6.         PATH "" ADD
  7.         CD /
  8.     ELSE
  9.         IF EXISTS C:SCRIPTS
  10.             PATH "" ADD
  11.             CD C:
  12.         ELSE
  13.             Echo "Can't find scripts, aborting..."
  14.             END
  15.         ENDIF
  16.     ENDIF
  17. ENDIF
  18.  
  19. STACK 250000
  20.  
  21. RTSimpleReq TITLE "Check your System" TEXT "Start VersCheck for" CENTER BUTTON "_ALL|_Libs|_Devs|D_Types|_MUI|_Handler|_Classes|_QUIT" >ENV:VCREQ1
  22.  
  23. IF $VCREQ1 EQ "1"
  24.     ECHO "Y" >ENV:VCREQ0
  25.     ECHO "2" >ENV:VCREQ1
  26.     ECHO "1" >ENV:VCREQ2
  27. ELSE
  28.     ECHO "N" >ENV:VCREQ0
  29. ENDIF
  30.  
  31. IF $VCREQ1 EQ "2"
  32.     IF $VCREQ0 EQ "N"
  33.         RTSimpleReq TITLE "Check Library's" TEXT "Select path to check" CENTER BUTTON "_Libs:|File_Requester|No Chec_k" >ENV:VCREQ2
  34.     ENDIF
  35.     IF $VCREQ2 EQ "1"
  36.         VersCheck -1*!fnmosvx3
  37.     ENDIF
  38.     IF $VCREQ2 EQ "2"
  39.         RTFileReq TITLE "Library path" DRAWER Libs: NOFILES >ENV:VCREQ3
  40.         VersCheck -1!fnmosvx3 "$VCREQ3"
  41.     ENDIF
  42. ENDIF
  43.  
  44. IF $VCREQ0 EQ "Y"
  45.     ECHO "3" >ENV:VCREQ1
  46. ENDIF
  47.  
  48. IF $VCREQ1 EQ "3"
  49.     IF $VCREQ0 EQ "N"
  50.         RTSimpleReq TITLE "Check Devices" TEXT "Select path to check" CENTER BUTTON "_Devs:|File_Requester|No Chec_k" >ENV:VCREQ2
  51.     ENDIF
  52.     IF $VCREQ2 EQ "1"
  53.         VersCheck -2*!fnmosvx3
  54.     ENDIF
  55.     IF $VCREQ2 EQ "2"
  56.         RTFileReq TITLE "Device path" DRAWER Devs: NOFILES >ENV:VCREQ3
  57.         VersCheck -2!fnmosvx3 "$VCREQ3"
  58.     ENDIF
  59. ENDIF
  60.  
  61. IF $VCREQ0 EQ "Y"
  62.     ECHO "4" >ENV:VCREQ1
  63. ENDIF
  64.  
  65. IF $VCREQ1 EQ "4"
  66.     IF $VCREQ0 EQ "N"
  67.         RTSimpleReq TITLE "Check Datatypes" TEXT "Select path to check" CENTER BUTTON "_Sys:Classes/Datatypes|File_Requester|No Chec_k" >ENV:VCREQ2
  68.     ENDIF
  69.     IF $VCREQ2 EQ "1"
  70.         VersCheck -3*!fnmosvx3
  71.     ENDIF
  72.     IF $VCREQ2 EQ "2"
  73.         RTFileReq TITLE "Datatypes path" DRAWER Sys:Classes/Datatypes NOFILES >ENV:VCREQ3
  74.         VersCheck -3!fnmosvx3 "$VCREQ3"
  75.     ENDIF
  76. ENDIF
  77.  
  78. IF $VCREQ0 EQ "Y"
  79.     ECHO "5" >ENV:VCREQ1
  80. ENDIF
  81.  
  82. IF $VCREQ1 EQ "5"
  83.     IF $VCREQ0 EQ "N"
  84.         RTSimpleReq TITLE "Check MUI" TEXT "Select path to check" CENTER BUTTON "_MUI:Libs/MUI|File_Requester|No Chec_k" >ENV:VCREQ2
  85.     ENDIF
  86.     IF $VCREQ2 EQ "1"
  87.         VersCheck -4*!fnmsv
  88.     ENDIF
  89.     IF $VCREQ2 EQ "2"
  90.         RTFileReq TITLE "MUI path" DRAWER MUI:Libs/MUI NOFILES >ENV:VCREQ3
  91.         VersCheck -4!fnmsvx3 "$VCREQ3"
  92.     ENDIF
  93. ENDIF
  94.  
  95. IF $VCREQ0 EQ "Y"
  96.     ECHO "6" >ENV:VCREQ1
  97. ENDIF
  98.  
  99. IF $VCREQ1 EQ "6"
  100.     IF $VCREQ0 EQ "N"
  101.         RTSimpleReq TITLE "Check Handler" TEXT "Select path to check" CENTER BUTTON "_l:|File_Requester|No Chec_k" >ENV:VCREQ2
  102.     ENDIF
  103.     IF $VCREQ2 EQ "1"
  104.         VersCheck -5*!fnmsvx3
  105.     ENDIF
  106.     IF $VCREQ2 EQ "2"
  107.         RTFileReq TITLE "Handler path" DRAWER l: NOFILES >ENV:VCREQ3
  108.         VersCheck -5!fnmsvx3 "$VCREQ3"
  109.     ENDIF
  110. ENDIF
  111.  
  112. IF $VCREQ0 EQ "Y"
  113.     ECHO "7" >ENV:VCREQ1
  114. ENDIF
  115.  
  116. IF $VCREQ1 EQ "7"
  117.     IF $VCREQ0 EQ "N"
  118.         RTSimpleReq TITLE "Check Classes" TEXT "Select path to check" CENTER BUTTON "Sys:_Classes+MUI:|_Sys:Classes|_MUI:|File_Requester|No Chec_k" >ENV:VCREQ2
  119.     ENDIF
  120.     IF $VCREQ2 EQ "1"
  121.         VersCheck -!afnmsv -0s .class -0l* ClassList -0n CLASS
  122.         VersCheck -!afnmsv -0s .image -0l* ImageList -0n CLASSIMG
  123.         VersCheck -!afnmsv -0s .gadget -0l* GadgetList -0n CLASSGAD
  124.         VersCheck -!afnmsv -0s .codec -0l* CodecList -0n CLASSCOD
  125.         VersCheck -!afnmsv -0s .decoder -0l* DecoderList -0n CLASSDEC
  126.     ENDIF
  127.     IF $VCREQ2 EQ "2"
  128.         VersCheck -!afnmsv -0s .class -0l ClassList -0n CLASS Sys:Classes
  129.         VersCheck -!afnmsv -0s .image -0l ImageList -0n CLASSIMG Sys:Classes
  130.         VersCheck -!afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD Sys:Classes
  131.         VersCheck -!afnmsv -0s .codec -0l CodecList -0n CLASSCOD Sys:Classes
  132.         VersCheck -!afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC Sys:Classes
  133.     ENDIF
  134.     IF $VCREQ2 EQ "3"
  135.         VersCheck -!afnmsv -0s .class -0l ClassList -0n CLASS MUI:
  136.         VersCheck -!afnmsv -0s .image -0l ImageList -0n CLASSIMG MUI:
  137.         VersCheck -!afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD MUI:
  138.         VersCheck -!afnmsv -0s .codec -0l CodecList -0n CLASSCOD MUI:
  139.         VersCheck -!afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC MUI:
  140.     ENDIF
  141.     IF $VCREQ2 EQ "4"
  142.         RTFileReq TITLE "Handler path" DRAWER Sys:Classes NOFILES >ENV:VCREQ3
  143.         VersCheck -!afnmsv -0s .class -0l ClassList -0n CLASS "$VCREQ3"
  144.         VersCheck -!afnmsv -0s .image -0l ImageList -0n CLASSIMG "$VCREQ3"
  145.         VersCheck -!afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD "$VCREQ3"
  146.         VersCheck -!afnmsv -0s .codec -0l CodecList -0n CLASSCOD "$VCREQ3"
  147.         VersCheck -!afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC "$VCREQ3"
  148.     ENDIF
  149. ENDIF
  150. Delete ENV:VCREQ? >NIL:
  151. RTSimpleReq TITLE "END" TEXT "Check your RAM-Disk for results" CENTER BUTTON "_OK" >NIL:
  152.